home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / boot / Bekuna.lha / bekuna1.5 / showtx < prev    next >
Text File  |  2002-03-12  |  854b  |  28 lines
  1. /* Funktion-SHOWTX (Zeigt Text in einem Fenster an) */
  2. /* von Kuno Naumann (26.02.2002) */
  3. /* call showtx(Zeit,Titel,Meldung[,Position][,Hintergrund]) */
  4. /* Zeit in 1/100 s Position: ohne oder 0=mitte 1=oben-links 2=mitte-Maus */
  5.  
  6. if arg()<1 then return 0
  7. call open(1,'awnpipe:texa1/xc')
  8. p='cs' ; hg=""
  9. if arg(4,'E') then do
  10. if arg(4)=1 then p='tl'
  11. if arg(4)=2 then p='cm'
  12. end
  13. if arg(5,'E') then hg=arg(5)
  14. call writeln(1,' "Meldung" q defg m a so si 'p hg)
  15. call writeln(1,'layout gt "'arg(2)'" v cj si so')
  16. call writeln(1,'layout si so')
  17. call writeln(1,'label lj gt "'arg(3)'" ss=2')
  18. call writeln(1,'le')
  19. call writeln(1,'space')
  20. call writeln(1,'button gt " _OK " weiw=0 c')
  21. call writeln(1,'le')
  22. call writeln(1,'arexx gt "SHOWTX|quit"')
  23. call writeln(1,'open')
  24. if arg(1)>0 then call writeln(1,'tick 'arg(1))
  25. else call writeln(1,'con')
  26. call close(1)
  27. exit 1
  28.